home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / nk_rmr20.zip / NK-RADD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-16  |  6KB  |  425 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING012
  28.     String   TSTRING013(1)
  29.     String   TSTRING014(1)
  30.     String   STRING015
  31.     String   STRING016
  32.     Int      INT001
  33.     Int      INT002
  34.     Int      INT004
  35.     Int      INT005
  36.     Int      INT006
  37.     Int      INT007
  38.     Int      INT008
  39.     Int      INT009
  40.     Int      INT010
  41.     Int      INT011
  42.     Declare  Procedure PROC001()
  43.     Declare  Procedure PROC002()
  44.     Declare  Procedure PROC003()
  45.     Declare  Procedure PROC004()
  46.     Declare  Procedure PROC005()
  47.     Declare  Procedure PROC006()
  48.     Declare  Procedure PROC007()
  49.     Declare  Procedure PROC008()
  50.     Declare  Procedure PROC009()
  51.     Declare  Procedure PROC010()
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     STRING001 = PPEPath()
  56.     STRING002 = STRING001 + "NK-RADD.CFG"
  57.     STRING003 = STRING001 + "NK-R.DAT"
  58.     STRING004 = STRING001 + "NK-R.TMP"
  59.     STRING006 = STRING001 + "NK-R.NAM"
  60.     STRING005 = Chr(32)
  61.     INT002 = 0
  62.     STRING007 = 0
  63.     PROC005()
  64.     If (INT001 > 0) Then
  65.         End
  66.     Else
  67.         PROC007()
  68.         Select Case (STRING007)
  69.             Case "1"
  70.                 PROC006()
  71.             Case "2"
  72.                 PROC001()
  73.             Case "3"
  74.                 PROC002()
  75.             Case "4"
  76.                 PROC003()
  77.             Endif
  78.     End Select
  79.     End
  80.  
  81. ;------------------------------------------------------------------------------
  82.  
  83.     Procedure PROC005()
  84.  
  85.     If (Exist(STRING003)) Goto LABEL001
  86.     PrintLn "NK-R.DAT Not Found!"
  87.     INT001 = INT001 + 1
  88.     :LABEL001
  89.     If (Exist(STRING004)) Goto LABEL002
  90.     PrintLn "NK-R.TMP Not Found!"
  91.     INT001 = INT001 + 1
  92.     :LABEL002
  93.     If (Exist(STRING002)) Goto LABEL003
  94.     PrintLn "NK-RADD.CFG Missing!"
  95.     INT001 = INT001 + 1
  96.     :LABEL003
  97.     If (Exist(STRING006)) Goto LABEL004
  98.     PrintLn "NK-R.NAM Not Found!"
  99.     INT001 = INT001 + 1
  100.     :LABEL004
  101.  
  102.     EndProc
  103.  
  104.  
  105. ;------------------------------------------------------------------------------
  106.  
  107.     Procedure PROC006()
  108.  
  109.     String   STRING008
  110.  
  111.     Newline
  112.     PrintLn ReadLine(STRING002, 14) + STRING005 + ReadLine(STRING004, 1)
  113.     InputStr ReadLine(STRING002, 3) + STRING005 + "_", STRING008, 7, 1, "AaDdLlQqHh", 0
  114.     Newline
  115.     If (Upper(STRING008) == "A") PROC001()
  116.     If (Upper(STRING008) == "D") PROC002()
  117.     If (Upper(STRING008) == "L") Then
  118.         PROC003()
  119.         PROC006()
  120.     Endif
  121.     If (Upper(STRING008) == "H") PROC004()
  122.     If (Upper(STRING008) == "Q") End
  123.     If (Upper(STRING008) == "") End
  124.  
  125.     EndProc
  126.  
  127.  
  128. ;------------------------------------------------------------------------------
  129.  
  130.     Procedure PROC001()
  131.  
  132.     String   STRING009
  133.     String   STRING010
  134.     String   STRING011
  135.     Int      INT003
  136.  
  137.     PROC008()
  138.     STRING009 = Chr(32) + Chr(34) + "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒáíóúñѪº¿⌐¬½¼¡«»░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■ "
  139.     Newline
  140.     PrintLn ReadLine(STRING002, 2)
  141.     InputStr ReadLine(STRING002, 5) + STRING005 + "_", STRING010, 7, 70, STRING009, 0
  142.     Newline
  143.     If (Upper(STRING010) == "/A") Then
  144.         PrintLn ReadLine(STRING002, 18)
  145.         PROC006()
  146.     ElseIf (Len(STRING010) < 5) Then
  147.         PrintLn ReadLine(STRING002, 4)
  148.         PROC001()
  149.     Else
  150.         INT003 = ReadLine(STRING004, 1)
  151.         InputStr ReadLine(STRING002, 19) + STRING005 + "_", STRING011, 7, 1, "YyNn", 0
  152.         Newline
  153.         If (Upper(STRING011) == "Y") Then
  154.             FAppend 2, STRING006, 2, 3
  155.             FOpen 2, STRING006, 2, 3
  156.             FAppend 2, STRING006, 2, 3
  157.             FPutLn 2, "ANONYMOUS"
  158.             FClose 2
  159.         Else
  160.             FAppend 2, STRING006, 2, 3
  161.             FOpen 2, STRING006, 2, 3
  162.             FAppend 2, STRING006, 2, 3
  163.             FPutLn 2, U_Name()
  164.             FClose 2
  165.         Endif
  166.         Delete STRING004
  167.         FCreate 1, STRING004, 2, 3
  168.         FOpen 1, STRING004, 2, 3
  169.         FPutLn 1, INT003 + 1
  170.         FClose 1
  171.         FAppend 2, STRING003, 2, 3
  172.         FOpen 2, STRING003, 2, 3
  173.         FAppend 2, STRING003, 2, 3
  174.         FPutLn 2, STRING010
  175.         FClose 2
  176.         If (Upper(ReadLine(STRING002, 17)) == "YES") Then
  177.             Log "φ New Rumour Added By: " + U_Name() + " φ", 1
  178.         Endif
  179.         PrintLn ReadLine(STRING002, 10)
  180.     Endif
  181.  
  182.     EndProc
  183.  
  184.  
  185. ;------------------------------------------------------------------------------
  186.  
  187.     Procedure PROC002()
  188.  
  189.     String   STRING012
  190.     String   TSTRING013(1)
  191.     String   TSTRING014(1)
  192.     Int      INT004
  193.     Int      INT005
  194.  
  195.     PROC010()
  196.     INT004 = ReadLine(STRING004, 1)
  197.     Newline
  198.     InputStr ReadLine(STRING002, 8) + STRING005 + "_", STRING012, 7, 4, "0123456789/AaLl", 0
  199.     Newline
  200.     Select Case (Upper(STRING012))
  201.         Case "L"
  202.             PROC003()
  203.             PROC002()
  204.         Case "/A"
  205.             PrintLn ReadLine(STRING002, 18)
  206.             PROC006()
  207.         Case 1
  208.             PrintLn ReadLine(STRING002, 9)
  209.             PROC002()
  210.         Case INT004
  211.             PrintLn ReadLine(STRING002, 9)
  212.             PROC002()
  213.         Case Else
  214.             Redim TSTRING013, INT004
  215.             Redim TSTRING014, INT004
  216.             FOpen 1, STRING003, 2, 3
  217.             For INT005 = 1 To INT004
  218.                 FGet 1, TSTRING013(INT005)
  219.             Next
  220.             FClose 1
  221.             FOpen 1, STRING006, 2, 3
  222.             For INT005 = 1 To INT004
  223.                 FGet 1, TSTRING014(INT005)
  224.             Next
  225.             FClose 1
  226.             Delete STRING003
  227.             FCreate 1, STRING003, 2, 3
  228.             FOpen 1, STRING003, 2, 3
  229.             For INT005 = 1 To INT004
  230.                 If (INT005 == STRING012) INT005 = STRING012 + 1
  231.                 FPutLn 1, TSTRING013(INT005)
  232.             Next
  233.             FClose 1
  234.             Redim TSTRING013, 1
  235.             FCreate 1, STRING006, 2, 3
  236.             FOpen 1, STRING006, 2, 3
  237.             For INT005 = 1 To INT004
  238.                 If (INT005 == STRING012) INT005 = STRING012 + 1
  239.                 FPutLn 1, TSTRING014(INT005)
  240.             Next
  241.             FClose 1
  242.             Redim TSTRING014, 1
  243.             Delete STRING004
  244.             FCreate 1, STRING004, 2, 3
  245.             FOpen 1, STRING004, 2, 3
  246.             FPut 1, INT004 - 1
  247.             FClose 1
  248.             PrintLn ReadLine(STRING002, 13)
  249.     End Select
  250.  
  251.     EndProc
  252.  
  253.  
  254. ;------------------------------------------------------------------------------
  255.  
  256.     Procedure PROC003()
  257.  
  258.     String   STRING015
  259.     Int      INT006
  260.     Int      INT007
  261.     Int      INT008
  262.  
  263.     PROC009()
  264.     INT006 = ReadLine(STRING004, 1)
  265.     INT008 = 0
  266.     Cls
  267.     For INT007 = 1 To INT006
  268.         STRING015 = String(INT007)
  269.         PrintLn "@X08(@X0F" + STRING015 + "@X08)@X07" + STRING005 + ReadLine(STRING003, INT007)
  270.         PrintLn ReadLine(STRING002, 20) + "@X03" + STRING005 + ReadLine(STRING006, INT007)
  271.         INT008 = INT008 + 1
  272.         If (INT008 == 10) Then
  273.             Newline
  274.             Wait
  275.             INT008 = 0
  276.             Cls
  277.         Endif
  278.     Next
  279.     Newline
  280.  
  281.     EndProc
  282.  
  283.  
  284. ;------------------------------------------------------------------------------
  285.  
  286.     Procedure PROC004()
  287.  
  288.     Newline
  289.     PrintLn ReadLine(STRING002, 6)
  290.     PROC006()
  291.  
  292.     EndProc
  293.  
  294.  
  295. ;------------------------------------------------------------------------------
  296.  
  297.     Procedure PROC007()
  298.  
  299.     String   STRING016
  300.  
  301.     STRING016 = TokenStr()
  302.     If (STRING016 == "") STRING007 = 1
  303.     If (Upper(STRING016) == "A") STRING007 = 2
  304.     If (Upper(STRING016) == "D") STRING007 = 3
  305.     If (Upper(STRING016) == "L") STRING007 = 4
  306.  
  307.     EndProc
  308.  
  309.  
  310. ;------------------------------------------------------------------------------
  311.  
  312.     Procedure PROC008()
  313.  
  314.     Int      INT009
  315.  
  316.     INT009 = CurSec()
  317.     If (INT009 < ReadLine(STRING002, 1)) Then
  318.         Newline
  319.         PrintLn ReadLine(STRING002, 7)
  320.         End
  321.     Endif
  322.  
  323.     EndProc
  324.  
  325.  
  326. ;------------------------------------------------------------------------------
  327.  
  328.     Procedure PROC010()
  329.  
  330.     Int      INT010
  331.  
  332.     INT010 = CurSec()
  333.     If (INT010 < ReadLine(STRING002, 15)) Then
  334.         Newline
  335.         PrintLn ReadLine(STRING002, 12)
  336.         End
  337.     Endif
  338.  
  339.     EndProc
  340.  
  341.  
  342. ;------------------------------------------------------------------------------
  343.  
  344.     Procedure PROC009()
  345.  
  346.     Int      INT011
  347.  
  348.     INT011 = CurSec()
  349.     If (INT011 < ReadLine(STRING002, 16)) Then
  350.         Newline
  351.         PrintLn ReadLine(STRING002, 11)
  352.         End
  353.     Endif
  354.  
  355.     EndProc
  356.  
  357.  
  358. ;------------------------------------------------------------------------------
  359. ;
  360. ; Usage report (before postprocessing)
  361. ;
  362. ; ■ Statements used :
  363. ;
  364. ;    7       End
  365. ;    2       Cls
  366. ;    1       Wait
  367. ;    43      Goto 
  368. ;    40      Let 
  369. ;    19      PrintLn 
  370. ;    38      If 
  371. ;    4       FCreate 
  372. ;    9       FOpen 
  373. ;    6       FAppend 
  374. ;    9       FClose 
  375. ;    2       FGet 
  376. ;    1       FPut 
  377. ;    6       FPutLn 
  378. ;    3       Delete 
  379. ;    1       Log 
  380. ;    4       InputStr 
  381. ;    13      Newline
  382. ;    4       Redim 
  383. ;    10      EndProc
  384. ;
  385. ;
  386. ; ■ Functions used :
  387. ;
  388. ;    38      +
  389. ;    1       -
  390. ;    22      ==
  391. ;    10      <
  392. ;    5       <=
  393. ;    2       >
  394. ;    10      >=
  395. ;    27      !
  396. ;    10      &&
  397. ;    5       ||
  398. ;    1       Len(
  399. ;    14      Upper()
  400. ;    3       Chr()
  401. ;    2       U_Name()
  402. ;    1       String()
  403. ;    1       PPEPath()
  404. ;    28      ReadLine()
  405. ;    3       CurSec()
  406. ;    4       Exist()
  407. ;    1       TokenStr()
  408. ;
  409. ;------------------------------------------------------------------------------
  410. ;
  411. ; Analysis flags : No flag
  412. ;
  413. ;------------------------------------------------------------------------------
  414. ;
  415. ; Postprocessing report
  416. ;
  417. ;    5       For/Next
  418. ;    0       While/EndWhile
  419. ;    10      If/Then or If/Then/Else
  420. ;    2       Select Case
  421. ;
  422. ;------------------------------------------------------------------------------
  423. ;                 AEGiS Corp - Break the routines, code against the machines!
  424. ;------------------------------------------------------------------------------
  425.